00100	\|\\;				Define Brick Character
00200	\M0FIX25;\;	fixed font
00300	\⊂'000040;\;	VERREM - REM's syntax form macros with args definitions
00400	\8EVAL(STRING)[⊗STRING⊗]\;
00500	\8SETOM(REG)[\P\←=1;\→⊗REG⊗\p]\;	set REG to one
00600	\8SETZM(REG)[\P\←=0;\→⊗REG⊗\p]\;	set REG to zero
00700	\;
00800	\8COMPAC(ARG)[\N		complement ac
00900	\	;\!EVAL(⊗ARG⊗);\N		evaluate argument
01000	\	;\Q0\N				save reg 0
01100	\	;\!SETOM(0);\N			put a 1 in reg 0
01200	\	;\?SETZM(0);\N			if ac > 0 set reg 0 to 0
01300	\	;\←0\N				load ac from reg 0
01400	\	;\q0]\;				restore reg 0
01500	\;
01600	\8NULL(STRING)[\N		is the string null
01700	\	;\oSTR{0⊗STRING⊗}\N		put string in overlay
01800	\	;\3STR;\N			height of overlay to ac
01900	\	;\∂←STR;\N			expunge overlay
02000	\	;\+'200000;\N			add 200000 to ac
02100	\	;\!COMPAC;]\;			complement ac
02200	\;
02300	\!NULL();\;